Apple Reference & Presen…tion Library 2 (Reseller)/Apple R&P Lib Reseller v2.0.iso/4-Fonts & Software/Demo Software/AppMaker/Demo AppMaker™/Demo AppMaker™.rsrc/TmpP_536_File.Revert

Text File | 1989-04-09 | 372b | 21 lines

{----------}
Procedure DoRevert;
var
    fileName:        Str255;
    ok:                boolean;
Begin
    ok := true;
    if cur^.dirty then begin
        GetWTitle (curWindow, fileName);
        ParamText (fileName, '', '', '');
        ok := Confirm (RevertID);
    end; {if}
    if ok then begin
        ok := ReadApplFile (cur^.fileNum);
    end;
    if ok then begin
        InvalRect (curWindow^.portRect);
    end; {if}
End; {DoRevert}